home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / tori / sharedi.cst / 03026_Script_3026 < prev    next >
Text File  |  1983-01-27  |  2KB  |  74 lines
  1. on att_hil_invent dacast,quanti,primocan
  2.   global audio,dove,men,olddove,audio_barrato,canale_quicktime
  3.   
  4.   set elewin to string (the windowlist)
  5.   if offset ("menubar",elewin) > 0 then
  6.     if the visible of window "menubar" = true then 
  7.       exit
  8.     end if
  9.   end if
  10.   
  11.   if the mousecast >= dacast and the mousecast <=dacast + quanti-1 then
  12.     
  13.     set attore to the mousecast
  14.     if attore >=dacast and attore <= dacast + quanti-1 then
  15.       repeat with num = 1 to quanti
  16.         if dove <> num then
  17.           set the castnum of sprite (primocan+num -1) to (dacast + num -1)
  18.         end if
  19.         
  20.         
  21.       end repeat
  22.       put "aaaudio",audio
  23.       set the castnum of sprite primocan-1  to audio
  24.       set the castnum of sprite (attore-dacast +primocan) to (attore + quanti)
  25.     end if
  26.   end if 
  27.   
  28.   if the mousecast < dacast or the mousecast > dacast +50  then
  29.     repeat with num = 1 to quanti
  30.       if dove <> num then
  31.         set the castnum of sprite (primocan+num -1) to (dacast + num -1)
  32.       end if        
  33.     end repeat
  34.     set the castnum of sprite primocan-1  to audio  
  35.   end if
  36.   
  37.   
  38.   set y to the castnum of sprite canale_quicktime
  39.   if y>0 then 
  40.     set vv to the casttype of cast y
  41.     if vv=#digitalvideo then
  42.       
  43.       set val_vv to the movierate of sprite canale_quicktime
  44.     else
  45.       set val_vv to 0
  46.     end if
  47.     
  48.   else
  49.     set val_vv to 0
  50.   end if
  51.   
  52.   
  53.   
  54.   if the mousecast = audio AND val_vv = 0 then
  55.     
  56.     repeat with num = 1 to quanti
  57.       set the castnum of sprite (primocan+num -1) to (dacast + num -1)
  58.     end repeat
  59.     set  elewin to string(the windowlist)
  60.     if offset("popup",elewin)=0 then
  61.       set the castnum of sprite primocan-1  to audio + 1
  62.     end if
  63.   end if
  64.   
  65.   if dove > 0 then
  66.     set the castnum of sprite (primocan + dove-1) to (dacast + quanti+ dove -1)
  67.   end if
  68.   if olddove>0 then 
  69.     set the castnum of sprite (primocan + olddove-1) to (dacast + quanti+ olddove -1)
  70.   end if
  71.   
  72.   
  73. end
  74.